0 OPEN255,2,3,CHR$(6)+CHR$(0):GOTO20000 10 REM ********************************* 20 REM ********** MACTERM **************30 REM ADDRESS ANY QUESTIONS AND/OR 40 REM COMMENTS VIA E-MAIL TO 50 REM DUSTY VAN;72576,2237 OR CALL 60 REM ***** BUCCANEERS HARBOR II ***** 70 REM ******** 408-243-2370 ********** 80 REM ********************************* 139 REM 140 REM TERMINAL 141 REM 145 POKEB2,32:POKEB1,32:POKE198,0:A$="":PRINTE$CHR$(14)R$" TERMINAL "J$ 165 GET#255,A$:IFA$=""THEN180 170 PRINTL$CHR$(F%(ASC(A$)));:IFA$=Q$THENPOKEU,0 175 GOTO165 180 PRINTO$;:GETA$:IFA$=""THEN165 181 IFPEEK(214)=24THENPRINT"[145]"; 191 IFASC(A$)>132THENGOTO1000 198 PRINT#255,CHR$(T%(ASC(A$))); 200 IFB=1THENPRINTL$;CHR$(F%(T%(ASC(A$))));:IFA$=Q$THENPOKEU,0 201 GOTO165 204 REM 205 REM DOWNLOAD 206 REM 220 G=3:K$="W":GOSUB345:PRINT:BL=.:N=.:IFEN>0THEN320 221 GOSUB700 222 GETB$:IFB$=CHR$(133)THEN2250 223 PRINT" ";F$:POKE214,13:GOSUB700 230 FORH=WTOP 235 CH=.:FORX=WTOV:GET#255,A$:E=ST:IFA$=""THENIFE=OTHENL=L+W 240 IFE=.THENL=.:GOTO255 242 GETA$:IFA$=CHR$(133)THEN320 245 IFL=MTHENL=.:GOSUB525 250 GOTO235 255 IFX=WTHENIFA$=CHR$(EOT)THENPRINT" "R$"EOT":GOSUB520:GOTO310 260 U%(H,X)=ASC(A$+C$):CH=CH+U%(H,X):NEXT:CH=CH-U%(H,V) 265 IF(U%(H,W)+U%(H,2)+U%(H,3)ANDF)<>.THENGOSUB525 270 IFU%(H,V)<>(CHANDF)THENGOSUB525 275 BL=BL+W:PRINT"[145] BLOCK [157][157][157][157]"BL 280 IFU%(H,2)<>BLTHENBL=BL-1:GOSUB520:GOTO235 285 IFH<>PTHENGOSUB520 290 NEXT:H=H-W 295 IFN=WTHENIFH=.THEN310 300 FORY=1TOH:FORX=EOTTOZ:PRINT#3,CHR$(U%(Y,X));:NEXT:NEXT 305 GOSUB520:GOTO230 310 FORA=WTOH:FORR=EOTTOZ:PRINT#3,CHR$(U%(A,R));:NEXT:NEXT:CLOSEG:GOTO550 314 REM 315 REM MENU 316 REM 320 PRINTE$:PRINTCHR$(142):POKE53248+33,C1:POKE53248+32,C2:POKE646,C3 325 PRINT" 1> TERMINAL"J$" 2> LOAD BUFFER"J$" 3> DOWNLOAD"J$" 4> UPLOAD" 326 PRINT" 5> WEDGE"J$" 6> AUTO DIAL"J$" 7> BBS MODE" 327 PRINT" 8> UTILITIES" 331 GOSUB505 335 ONVAL(A$)GOTO140,375,205,585,7000,10505,8000,5000:GOTO331 342 REM 343 REM FILENAME/TYPE SETUP 344 REM 345 CLOSEG 346 PRINT" FILENAME / EX[146]IT ";:INPUTF$:IFF$="X"THEN320 347 GOSUB700 350 PRINT"[145] P[146]RG / S[146]EQ / EX[146]IT ";:INPUTFT$:IFFT$="X"THEN320 351 GOSUB700 355 FT$=LEFT$(FT$,W) 360 OPENG,8,G,F$+","+FT$+","+K$:GOSUB900 362 IFEN>0THENPRINT"[145]";:GOSUB930:FORT=1TO2000:NEXT 363 RETURN 369 REM 370 REM UPLOAD 371 REM 375 POKE198,0:G=6:K$="R":GOSUB345:BL=.:IFEN>0THEN320 377 PRINT"";F$ 378 POKE214,13:PRINT 380 FORY=WTOP:U%(Y,W)=W 381 PRINT"[145][145] LOADING" 385 BL=BL+W:U%(Y,2)=BL:U%(Y,3)=F-BL:CH=W+U%(Y,2)+U%(Y,3):PRINT" BLOCK [157][157][157][157]"BL" 386 [161]B$:[139]B$[178][199](133)[167]320 390 [129]X[178]EOT[164]Z:[161]#6,B$:[139]ST[178].[167]400 395 FL[178]Y:CH[178]CH[170]U%(Y,X):[129]A[178]X[170]W[164]Z:U%(Y,A)[178].:[130]:U%(Y,V)[178]CH[175]F:[137]405 400 U%(Y,X)[178][198](B$[170]C$):CH[178]CH[170]U%(Y,X):[130]:U%(Y,V)[178]CH[175]F:[130]:Y[178]Y[171]W 405 [139]A$[178]"2"[167][153]" ";:[137]550 410 [161]#255,A$:[161]B$:[139]B$[178][199](133)[167]320 411 [139]A$[179][177][199](NAK)[167]410 415 BL[178]BL[171]Y:Y[178]. 420 [153]"ONON NAK " 425 Y[178]Y[170]W:BL[178]BL[170]W 430 [153]" BLOCK CMDCMDCMDCMD"BL:[129]X[178]W[164]V:[152]255,[199](U%(Y,X));:[130] 432 [161]B$:[139]B$[178][199](133)[167]320 435 [129]A[178].[164]1200:[161]#255,A$:[139]A$[178]""[167][130]:[153]"ON";:[137]430 440 [139]A$[178][199](ACK)[167][139]Y[178]P[167][153]"ON":[137]380 445 [139]A$[178][199](ACK)[167][139]FL[179][177]Y[167][153]"ONON ACK ":[137]425 450 [139]A$[178][199](ACK)[167][139]FL[178]Y[167]FL[178].:[141]535:[141]540:[160]G:[153]" ";:[137]550 455 [139]A$[178][199](NAK)[167][153]"ONON NAK ":[137]430 460 [139]A$[178][199](CAN)[167][160]6:[141]525 465 [137]435 504 [143] 505 [143] FETCH CHARACTER 506 [143] 507 [161]A$:[139]A$[178]""[167]507 510 [142] 519 [143] 520 [143] UP/DN LOAD CONTROLS 521 [143] 522 [152]255,[199](ACK);:Q[178].:[142] 525 Q[178]Q[170]W:[139]Q[178]11[167][160]G:A$[178][199](CAN):[152]255,A$:[153]"ON CANCELLED":[137]550 530 [152]255,[199](NAK);:[142] 535 [152]255,[199](EOT);:[142] 540 [161]#255,A$:[161]B$:[139]B$[178][199](133)[167]320 541 [139]A$[178]""[167]540 545 [142] 547 [143] 548 [143] READY WARNING 549 [143] 550 [153]R$"PRESS F1 FOR TERMINAL":[151]198,0 555 [129]T[178]1[164]80 560 [151]SO[170]1,250:[151]SO[170]5,10:[151]SO[170]15,200:[151]SO[170]24,15:[151]SO[170]4,21 565 [129]TT[178]1[164]1000:[130]:[151]SO[170]4,20 570 [161]A$:[139]A$[179][177][199](133)[167][151]198,0:[130] 575 [129]CL[178].[164]24:[151]SO[170]CL,.:[130] 580 [137]145 582 [143] 583 [143] UPLOAD START 584 [143] 585 [151]214,12:[141]700:[153]" HOST READY Y/N "J$:[141]505 586 [139]A$[178]"N"[167]320 590 [139]A$[179][177]"Y"[167]585 610 [153]" "F$ 615 [151]214,12:[153]:[141]700:[153]" ":BL[178]W:Y[178]W:[137]410 699 [143] 700 [143] CLEAR LINE 701 [143] 711 [153]"ON " 720 [142] 799 [143] 800 [143] BEEPER 801 [143] 802 SO[178]54272 805 [129]T[178]1[164]TT 810 [151]SO[170]1,250:[151]SO[170]5,10:[151]SO[170]15,200:[151]SO[170]24,15:[151]SO[170]4,21 815 [129]TT[178]1[164]1000:[130]:[151]SO[170]4,20 817 [130] 820 [129]CL[178].[164]24:[151]SO[170]CL,.:[130] 825 [142] 899 [143] 900 [143] COMMAND CHANNEL READ 901 [143] 910 [132]7,EN,DE$,TR,SE 920 [142] 929 [143] 930 [143] COMMAND CHANNEL PRINT 931 [143] 940 [153]EN;DE$;TR;SE 945 [142] 1000 [143] 1001 [143] CHARACTER TEST 1002 [143] 1005 [139][198](A$)[177]192[167][137]198 1020 [139]A$[178][199](133)[167]320 1030 [139]([198](A$)[177]136) [175] ([198](A$)[179]141) [167]11000 1040 [139][198](A$)[178]175[167][141]2200:[137]165 1050 [139][198](A$)[178]141[167]B[178]0:[137]8220 1060 [139][198](A$)[178]177[175]B[178]0[167]B[178]1:[137]165 1070 [139][198](A$)[178]177[175]B[178]1[167]B[178]0:[137]165 1072 [139]([198](A$)[178]180)[175]([194](B1)[175]32)[178]0[167][151]B2,32:[151]B1,32:[137]165 1073 [139]([198](A$)[178]180)[175]([194](B1)[175]32)[178]32[167][151]B2,32:[151]B1,0:[137]165 1075 [139][198](A$)[178]182[175][195](J$)[178]1[167]J$[178][199](13)[170][199](10):[137]165 1076 [139][198](A$)[178]182[175][195](J$)[178]2[167]J$[178][199](13):[137]165 1099 [137]198 2000 [143] 2001 [143] SCREEN DUMP 2200 [143] 2201 [139]([194](53272)[175]2)[178]0[167][159]4,4 2202 [139]([194](53272)[175]2)[178]2[167][159]4,4,7 2203 TT[178]0 2204 [151]198,0 2220 [129]T[178]1024[164]2023:TT[178]TT[170]1 2240 [152]4,[199](S%([194](T)));:[161]B$:[139]B$[178][199](133)[167]2250 2242 [139]TT[178]40[167]TT[178]0:[152]4 2245 [130] 2250 [152]4:[160]4:A$[178]"":[142] 4999 [143] 5000 [143] UTILITIES PAGE 5001 [143] 5005 [153]E$[199](142)" "R$"UTILITIES PAGE"J$ 5020 [153]" A> DIAL TONE PAUSE "DT 5030 [153]" B> CONNECT PAUSE "CP 5040 [153]" C> HANG UP PAUSE "HP 5050 [153]" D> NUMBER PAUSE "NP 5060 [153]" E> PULSE PAUSE "PP 5065 [153]" F> BUFFER BLOCKS (2-12) "P 5070 [153]" G> ECHO MODE "; 5071 [139]B[178]0[167][153]"OFF" 5072 [139]B[178]1[167][153]"ON" 5075 [153]" H> HANGUP "; 5076 [139]([194](B1)[175]32)[178]0[167][153]"OFF-LINE":HG[178]0 5077 [139]([194](B1)[175]32)[178]32[167][153]"LINE ACTIVE":HG[178]32 5081 [153]" J> BYTES FREE ";[184](0) 5082 [153]" K> FUNCTION KEYS" 5085 [153]" L> SCREEN COLOR" 5090 [153]" M> BORDER COLOR" 5095 [153]" N> CHARACTER COLOR" 5096 [153]" O> MAIN MENU INSTRUCTIONS" 5097 [153]" P> UTILITY INSTRUCTIONS" 5098 [153]" Q> EXIT" 5099 [153]" R> RUN" 5100 [153]J$" CHANGE ";:[141]505 5200 [139]A$[178]"A"[167][153]A$" ";:[133]DT:[139]DT[179]1[167]DT[178]200 5210 [139]A$[178]"B"[167][153]A$" ";:[133]CP:[139]CP[179]1[167]CP[178]750 5220 [139]A$[178]"C"[167][153]A$" ";:[133]HP:[139]HP[179]1[167]HP[178]300 5246 [139]A$[178]"D"[167][153]A$" ";:[133]NP:[139]NP[179]1[167]NP[178]400 5247 [139]A$[178]"E"[167][153]A$" ";:[133]PP:[139]PP[179]1[167]PP[178]25 5248 [139]A$[178]"F"[167][153]A$" ";:[133]P:[139](P[179]2)[176](P[177]12)[167]P[178]2 5250 [139]A$[178]"A"[176]A$[178]"B"[176]A$[178]"C"[176]A$[178]"D"[176]A$[178]"E"[176]A$[178]"F"[167]5000 5251 [139]A$[178]"G"[175]B[178]0[167]B[178]1:[137]5000 5255 [139]A$[178]"G"[175]B[178]1[167]B[178]0:[137]5000 5257 [139](A$[178]"H")[175]([194](B1)[175]32)[178]0[167][151]B2,32:[151]B1,32:HG[178]32:[137]5000 5258 [139](A$[178]"H")[175]([194](B1)[175]32)[178]32[167][151]B2,32:[151]B1,0:HG[178]0:[137]5000 5261 [139]A$[178]"K"[167][141]11100 5269 [139]A$[178]"L"[175]C1[178]15[167]C1[178][171]1 5270 [139]A$[178]"L"[167] C1[178]C1[170]1:[151]53248[170]33,C1:[139]C1[178]15[167]C1[178][171]1 5274 [139]A$[178]"M"[175]C2[178]15[167]C2[178][171]1 5275 [139]A$[178]"M"[167] C2[178]C2[170]1:[151]53248[170]32,C2:[139]C2[178]15[167]C2[178][171]1 5279 [139]A$[178]"N"[175]C3[178]15[167]C3[178][171]1 5280 [139]A$[178]"N"[167] C3[178]C3[170]1:[151]646,C3 5283 [139]A$[178]"N"[167] 5000 5284 [139]A$[178]"O"[167][141]13000:[137]5000 5285 [139]A$[178]"P"[167][141]12000:[137]5000 5286 [139]A$[178]"Q"[167][151]B2,32:[151]B1,0:[158]65511:[151]650,1:[153]E$:[128] 5288 [139]A$[178]"R"[167] [138] 5290 [139]A$[178][199](133)[167]320 5300 [139]A$[179][177][199](141)[167][153]"ONON":[137]5100 5350 [141]700:[153]"ON SAVING TO DISK" 5400 [159]2,8,15,"S:UTILITIES" 5410 [160]2 5420 [159]2,8,2,"UTILITIES,S,W" 5430 [152]2,DT;J$;CP;J$;HP;J$;NP;J$;PP;J$;P;J$;B;J$;HG;J$;C1;J$;C2;J$;C3 5510 [160]2 5599 [141]900:[139]EN[179][177]0[167][141]700:[153]"ON";:[141]930:[129]T[178]1[164]4000:[130] 5700 [137]5000 5999 [143] 6000 [143] XMIT STRING CONVERT 6001 [143] 6005 TS$[178]"" 6010 [129]T[178]1[164][195](TR$):TS$[178]TS$[170][199](T%([198]([202](TR$,T,1)))):[130] 6015 [139][195](J$)[178]2[167]TS$[178]TS$[170][199](10) 6020 [142] 6099 [143] 6100 [143] CONVERT STRING FOR SCRN 6101 [143] 6105 TS$[178]"" 6110 [129]T[178]1[164][195](TR$):TS$[178]TS$[170][199](F%([198]([202](TR$,T,1)))):[130] 6120 [142] 7000 [143] 7001 [143] WEDGE 7002 [143] 7010 [151]214,11 7020 [153]J$" >"; 7100 [161]T$ 7101 [139](T$[179][177]"$")[175](T$[179][177]"V")[175](T$[179][177]"S")[175](T$[179][177]"R")[175](T$[179][177][199](133))[167]7100 7111 [153]T$; 7112 [139]T$[178][199](133)[167][137]320 7120 [139]T$[178]"$"[167]7475 7121 [139]T$[178]"V"[167][152]7,"V":[129]T[178]1[164]20000:[130]:[153]"CMDCMD CMDCMD";:[137]7000 7122 [139](T$[178]"S")[176](T$[178]"R")[167][153]":";:[137]7600 7475 [153]:[159]1,8,0,"$":[161]#1,A$,A$ 7480 [141]900:[139]EN[177]0[167][141]930:[160]1:[129]T[178]1[164]2000:[130]:[137]7100 7481 [161]#1,A$,A$:[139]A$[178]""[167]7497 7485 [161]#1,A$,B$:[153][198](A$[170]C$)[170][198](B$[170]C$)[172]256; 7490 [161]#1,A$:[139]A$[178]""[167]7501 7495 [153]A$;:[137]7490 7497 [160]1 7498 [161]A$:[139]A$[179][177][199](133)[167]7498 7499 [151]214,11:[129]T[178]1[164]12:[141]700:[153]:[130]:[151]214,11:[153]:[137]7000 7501 [139][194](214)[179][177]22[167][153]:[137]7480 7502 [161]A$:[139]A$[179][177][199](133)[167]7502 7503 [151]214,11:[129]T[178]1[164]12:[141]700:[153]:[130]:[151]214,11:[153]:[137]7481 7600 N$[178]"" 7605 [161]D$:[139]D$[178]""[167]7605 7610 [139](D$[178][199](20))[175](N$[178]"")[167][153]"CMDCMD CMDCMDON";:[141]700:[137]7000 7620 [139]D$[178][199](20)[167][153]D$;:N$[178][200](N$,[195](N$)[171]1):[137]7605 7630 [139]D$[178][199](17)[167]7605 7640 [139]D$[178][199](29)[167]7605 7645 [139]D$[178][199](145)[167]7605 7650 [139]D$[178][199](157)[167]7605 7655 [139]D$[178][199](13)[167]7685 7660 N$[178]N$[170]D$:[153]D$; 7680 [137]7605 7685 [139]T$[178]"S"[167][152]7,"SCRATCH:"[170]N$ 7690 [139]T$[178]"R"[167][152]7,"RENAME:"[170]N$ 7691 [141]900:[139]EN[177]0[167][141]930:[160]1:[129]T[178]1[164]3000:[130]:[141]700:[137]7000 7699 [153]:[141]700:[137]7000 8000 [143] 8001 [143] SETUP BBS MODE 8002 [143] 8010 [153]E$[199](14):NC[178]0:NM[178]0 8015 TL$[178]"*******************************" 8016 TM$[178]"**** (null)LEFT$VAL (null)ATNLEN(null)VAL(null)(null) PEEKPEEK(null) ****" 8017 TN$[178]"**** (null)VAL(null)LEN(null)(null)VAL(null) (null)(null)(null) !! ****" 8020 TA$[178]"**** ASCVALATN(null)(null)(null)RIGHT$(null)CHR$ ****" 8022 TP$[178]"**** (null)(null)/STR$(null)(null)(null)(null)(null)ATNSTR$ ****" 8023 TQ$[178]"**** LENATN(null)ATNPEEKRIGHT$(null)RIGHT$(null)(null).... ****" 8024 TU$[178]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$:TU$[178]TU$[170]TU$ 8030 TB$[178]" <(null)>ESSAGE TO (null)YSOP" 8040 TC$[178]" OWNLOAD ASCILES (SOON!!) 8050 TD$=" <[213]>PLOAD [198]ILES (SOON!!) 8060 TE$[178]" <(null)>ELL FOR (null)YSOP" 8070 TF$[178]" OODBYE" 8071 TY$[178]" <(null)>UBLIC (null)ESSAGE PEEKOARD (SOON!!) 8072 Q9$=" <[204]>IST <[197]>DIT <[195]>ONTINUE <[211]>AVE <[193]>BORT" 8080 TG$="[212]HREE [210][197][212][213][210][206][211] [212]ERMINATES [205]ESSAGE" 8085 TH$=" [211]AVING [205]ESSAGE...." 8086 TJ$=" [208]AGING [211]YSOP" 8087 TK$=" MENU" 8088 TV$=" <[201]>NFO" 8089 TX$=" >" 8090 TZ$=" [211]YSOP [194]REAKING [201]N[160]!!.." 8091 BY$=" [194]YE......[208]LEASE [200]ANG [213]P!!" 8092 Q1$=" [195]OMMODORE 64 / [205][211][196] [196]UAL [196]RIVE" 8093 Q2$=" [205][208][211] 801 [208]RINTER / 1650 [193]UTOMODEM" 8094 Q3$=" [206]AME [208]LEASE " 8096 Q5$=" [197]NTER [211]UBJECT " 8099 Q8$=" [212]EXT [194]UFFER [198]ULL" 8100 REM 8101 REM AWAIT CALL 8102 REM 8110 POKEB2,32:POKEB1,0:J$=CHR$(13):NU$="" 8120 PRINTE$" "R$"[193]WAITING [195]ALL" 8130 IFNC<>0THENPRINT" ";NC;"CALLS 8140 [139]NM[179][177]0[167][153]" ";NM;"MESSAGES" 8150 [161]A$:[139]A$[178][199](133)[167]J$[178][199](13):B[178]0:[137]320 8160 [139]([194](B1)[175]8)[179][177]0[167]8150 8200 [143] 8201 [143] LOGON MESSAGE & MENU 8202 [143] 8203 [151]B2,6:[151]B1,32:TI$[178]"000000":TT[178]3:NC[178]NC[170]1:[141]800:[151]198,0 8204 [153]E$J$"  LENONNECT ! "J$ 8205 [129]T[178]1[164]2000:[130] 8207 TR$[178]TL$:[141]6000:[152]255,TU$;TS$ 8208 TR$[178]TM$:[141]6000:[152]255,TS$ 8209 TR$[178]TN$:[141]6000:[152]255,TS$ 8210 TR$[178]TA$:[141]6000:[152]255,TS$ 8211 TR$[178]TP$:[141]6000:[152]255,TS$ 8212 TR$[178]TQ$:[141]6000:[152]255,TS$ 8213 TR$[178]TL$:[141]6000:[152]255,TS$ 8214 TR$[178]Q3$:[141]6000:[152]255,J$;J$;J$;TS$:[152]255," "; 8215 [161]#255,A$:[141]9990:[139]A$[178]""[167]8215 8216 [139](F%([198](A$))[178]20)[175]([195](NU$)[177]0)[167]NU$[178][200](NU$,[195](NU$)[171]1):[137]8218 8217 NU$[178]NU$[170][199](F%([198](A$))):[152]255,A$; 8218 [153][199](F%([198](A$)));:[139][195](NU$)[178]244[167]A$[178]J$:NU$[178]NU$[170]J$ 8219 [139]A$[179][177][199](13)[167]8215 8220 TR$[178]TY$:[141]6000:[152]255,J$;J$;TS$ 8222 TR$[178]TB$:[141]6000:[152]255,TS$ 8240 TR$[178]TC$:[141]6000:[152]255,TS$ 8250 TR$[178]TD$:[141]6000:[152]255,TS$ 8260 TR$[178]TE$:[141]6000:[152]255,TS$ 8270 TR$[178]TF$:[141]6000:[152]255,TS$ 8272 TR$[178]TV$:[141]6000:[152]255,TS$ 8275 TR$[178]TK$:[141]6000:[152]255,TS$ 8280 TR$[178]TX$:[141]6000:[152]255,J$;J$;J$;TS$; 8400 [143] 8401 [143] MAKE DECISION 8402 [143] 8410 [161]#255,A$ 8415 [141]9990 8438 [139]A$[178]""[167]8410 8440 [139][199](F%([198](A$)))[178]"G"[167][152]255,A$:[137]9980 8445 [139][199](F%([198](A$)))[178]"P"[167][152]255,A$:[137]9100 8450 [139][199](F%([198](A$)))[178]"M"[167][152]255,A$:[137]8600 8460 [139][199](F%([198](A$)))[178]"Y"[167][152]255,A$:[137]8800 8465 [139][199](F%([198](A$)))[178]"I"[167][152]255,A$:[137]8900 8470 [139][199](F%([198](A$)))[178]"?"[167][152]255,A$:[137]8220 8480 [137]8410 8600 [143] 8601 [143] LEAVE SYSOP MESSAGE 8602 [143] 8605 [141]9300 8610 TR$[178]TG$:[141]6000:[152]255,J$;J$;J$;TS$;J$;J$ 8611 [139](S[178]51)[176](ML[177][178]2048)[167]TR$[178]Q8$:[141]6000:[152]255,J$;TS$:[137]8699 8612 [152]255,[199](T%([198](">"))); 8615 [161]#255,A$ 8630 [141]9990 8653 [139]A$[178]""[167]8615 8655 [139]A$[179][177][199](13)[167]SM[178]0:[137]8670 8660 [139]A$[178][199](13)[167]SM[178]SM[170]1 8665 [139]A$[178][199](13)[175]SM[178]3[167]8699 8670 [153]L$[199](F%([198](A$)));:[139]A$[178]Q$[167][151]U,. 8671 [152]255,A$;:[139]F%([198](A$))[178]20[167]S$(S)[178][200](S$(S),[195](S$(S))[171]1) 8672 S$(S)[178]S$(S)[170][199](F%([198](A$))):[139][195](S$(S))[178]254[167]A$[178][199](13):[137]8660 8679 [139]A$[178][199](13)[167]ML[178]ML[170][195](S$(S)):S[178]S[170]1:[137]8611 8680 [137]8615 8699 [141]9200:[137]8220 8700 [143] 8701 [143] SYSOP BREAKS IN 8702 [143] 8710 TR$[178]TZ$:[141]6000:[152]255,J$;J$;TS$;J$;J$ 8720 B[178]1:[137]145 8800 [143] 8801 [143] YELL FOR SYSOP 8802 [143] 8805 YS[178]0 8810 TR$[178]TJ$:[141]6000:[153]J$;TJ$;:[152]255,J$;TS$;:[141]9960 8820 [152]255,[199](T%([198](".")));:[153]".";:YS[178]YS[170]1 8821 [151]SO[170]4,21:[129]TT[178]1[164]1000:[130]:[151]SO[170]4,20 8822 [141]9990 8830 [161]#255,A$:[139]A$[179][177]""[167][139]F%([198](A$))[178]13[167]8850 8840 [139]YS[179]25[167][129]T[178]1[164]500:[130]:[137]8820 8850 [141]9970:[152]255,J$;J$:[153]J$J$:[137]8220 8900 [143] 8901 [143] SYSTEM INFO 8902 [143] 8910 TR$[178]Q1$:[141]6000:[152]255,J$;J$;TS$ 8920 TR$[178]Q2$:[141]6000:[152]255,TS$;J$;J$ 8930 [137]8220 9100 [143] 9101 [143] PUBLIC MESSAGE BOARD 9102 [143] 9199 [137]8220 9200 [143] 9201 [143] SAVE MESSAGE TO DISK 9202 [143] 9203 TR$[178]TH$:[141]6000:[152]255,J$;TS$; 9208 S$(0)[178]NU$:[139][195](F$)[177]16[167]F$[178][200](F$,16) 9210 [159]8,8,8,F$[170]",S,W" 9212 [141]900:[139]EN[177]0[167]F$[178]"\"[170]F$:[141]9990:[137]9208 9220 [129]T[178]0[164]S:[139]S$(T)[179][177]""[167][152]8,S$(T) 9225 [130] 9230 [160]8:NM[178]NM[170]1 9235 [129]T[178]1[164]50:S$(T)[178]"":[130] 9299 [142] 9300 [143] 9301 [143] SUBJECT SET 9302 [143] 9305 A$[178]"":S[178]1:F$[178]"":ML[178]0:[129]T[178]0[164]50:S$(T)[178]"":[130] 9310 TR$[178]Q5$:[141]6000:[152]255,J$;TS$;[199](32);[199](32); 9320 [161]#255,A$:[141]9990:[139]A$[178]""[167]9320 9330 [139]A$[178][199](13)[167]9370 9335 [139](F%([198](A$))[178]20)[175]([195](F$)[177]0)[167]F$[178][200](F$,[195](F$)[171]1):[137]9355 9340 [139][198](A$)[177]127[167]A$[178][199]([198](A$)[171]128) 9350 F$[178]F$[170][199](F%([198](A$))) 9355 [152]255,A$; 9360 [137]9320 9370 [142] 9960 [143] 9961 [143] BEEP ON 9962 [143] 9963 SO[178]54272 9964 [151]SO[170]1,250:[151]SO[170]5,10:[151]SO[170]15,200:[151]SO[170]24,15 9965 [142] 9970 [143] 9971 [143] BEEP OFF 9972 [143] 9978 [129]CL[178]0[164]24:[151]SO[170]CL,0:[130] 9979 [142] 9980 [143] 9981 [143] LOGOFF MESSAGE 9982 [143] 9985 TR$[178]BY$:[141]6000:[152]255,J$;J$;TS$:[129]T[178]1[164]3000:[130]:[137]8100 9990 [143] 9991 [143] LINE STATUS 9992 [143] 9995 [139]([194](B1)[175]16)[178]16[167]9980 9997 [139][197](TI$)[177]3000[167]9980 9998 [139][194](198)[177]0[167]8700 9999 [142] 10500 [143] 10501 [143] AUTO DIALER 10502 [143] 10505 [151]B2,32:[151]B1,0:CC[178]0:TC[178]0:D$[178]"":D1$[178]"" 10515 [153]"":[153]" PHONE # ";R$;"_CMD";[199](146); 10516 [161]D1$:[139]D1$[178]""[167]10516 10517 [139]D1$[178][199](17)[167]10516 10518 [139]D1$[178][199](145)[167]10516 10519 [139]D1$[178][199](157)[167]10516 10520 [139]D1$[178][199](29)[167]10516 10522 [139]D1$[178][199](13)[167]10526 10523 [139]D1$[178][199](20)[167][153]D1$;:D$[178][200](D$,[195](D$)[171]1):[137]10516 10524 [139]D1$[178][199](133)[167]320 10525 [153]D1$R$;"_CMD";[199](146);:D$[178]D$[170]D1$:[137]10516 10526 [139]D$[178]""[167]320 10527 [153]" "; 10536 [139][195](D$)[178]7[167][153][200](D$,3);"-";[201](D$,4) 10537 [139][195](D$)[178]10[167][153]"(";[200](D$,3);") ";[202](D$,4,3);"-";[201](D$,4) 10538 [139]([195](D$)[179][177]7)[175]([195](D$)[179][177]10)[167][153]D$ 10539 [151]214,13:[141]700:TI$[178]"000000" 10540 [151]B2,32:[151]B1,32 10542 [153]"ON "; 10560 [129]T[178]1[164]DT[172]10:[130] 10580 [129]X9[178]1[164][195](D$) 10585 [161]A$:[139]A$[178][199](133)[167][151]B2,32:[151]B1,0:[137]320 10590 N$[178][202](D$,X9,1) 10592 [153]N$R$"_CMD";[199](146); 10595 [139]N$[178]"P"[167][129]T[178]1[164]500:[130]:[137]10630 10600 N[178][197](N$) 10610 [139]N[178]0[167]N[178]10 10620 [141]10650 10630 [130]X9 10634 TT[178]0:[129]T[178]1[164]CP 10635 [139]([194](B1)[175]16)[178]0[167]CC[178]CC[170]1:[139]CC[178]10[167][153]:[153]" ";:[137]550 10638 [161]A$:[139]A$[178][199](133)[167][151]B2,32:[151]B1,0:[137]320 10639 [130] 10640 TC[178]TC[170]1:[153]" "TC" CALLS [ "[202](TI$,3,2)":"[201](TI$,2)" ]" 10641 [151]B2,32:[151]B1,0:[129]T[178]1[164]HP:[161]A$:[139]A$[179][177][199](133)[167][130]:[137]10540 10642 [137]320 10650 [129]N1[178]1[164]N 10652 [129]T[178]1[164]PP:[130] 10655 [151]B1,0 10662 [129]T[178]1[164]PP:[130] 10670 [151]B1,32 10685 [130]N1 10692 [129]T[178]1[164]NP:[130] 10695 [142] 10999 [143] 11000 [143] FUNCTION KEY PRINT 11001 [143] 11020 [145][198](A$)[171]136[137]11035,11040,11043,11048 11035 [152]255,F2$:[139]B[178]1[167]TR$[178]F2$:[141]6100:[153]TS$ 11037 [137]165 11040 [152]255,F4$:[139]B[178]1[167]TR$[178]F4$:[141]6100:[153]TS$ 11042 [137]165 11043 [152]255,F6$:[139]B[178]1[167]TR$[178]F6$:[141]6100:[153]TS$ 11045 [137]165 11048 [152]255,F8$:[139]B[178]1[167]TR$[178]F8$:[141]6100:[153]TS$ 11050 [137]165 11099 [143] 11100 [143] DEFINE FUNCTION KEYS 11101 [143] 11102 [139]F2$[178]""[167] F2$[178]"PASSWORD" 11104 [139]F4$[178]""[167] F4$[178]"NAME" 11106 [139]F6$[178]""[167] F6$[178]"CITY-STATE" 11108 [139]F8$[178]""[167] F8$[178]"COMMODORE 64" 11150 [153]E$[199](14)" "R$"STR$EFINE ASCUNCTIONCLOSE(null)EYS"J$J$ 11200 TR$[178]F2$:[141]6100:[153]"F2 = "TS$J$ 11205 TR$[178]F4$:[141]6100:[153]"F4 = "TS$J$ 11210 TR$[178]F6$:[141]6100:[153]"F6 = "TS$J$ 11215 TR$[178]F8$:[141]6100:[153]"F8 = "TS$J$ 11250 [153]J$J$"(null)(null)VAL(null)(null)CLOSELEN=CLOSECLOSEASC(null)(null)CLOSEASCRIGHT$(null)VALCLOSE(null)(null)STR$ATN(null)VAL" 11300 [153]J$J$J$"LENHOOSE ";:[141]505 11310 [139]A$[178][199](133)[167]5000 11430 [139]A$[178][199](137)[167][133]"F2 ";F2$:TR$[178]F2$:[141]6000:F2$[178]TS$:[137]11100 11440 [139]A$[178][199](138)[167][133]"F4 ";F4$:TR$[178]F4$:[141]6000:F4$[178]TS$:[137]11100 11450 [139]A$[178][199](139)[167][133]"F6 ";F6$:TR$[178]F6$:[141]6000:F6$[178]TS$:[137]11100 11460 [139]A$[178][199](140)[167][133]"F8 ";F8$:TR$[178]F8$:[141]6000:F8$[178]TS$:[137]11100 11470 [139]A$[179][177][199](141)[167][153]"ONONONON":[137]11300 11500 [159]1,8,15,"S:FUNCTION KEYS" 11505 [160]1 11600 [159]1,8,2,"FUNCTION KEYS,S,W" 11610 [152]1,F2$J$,F4$J$,F6$J$,F8$ 11620 [160]1 11700 [141]900:[139]EN[177]0[167][153]E$;:[141]930:[153][199](142); 11800 [142] 12000 [143] 12001 [143] UTILITY INSTR. 12002 [143] 12005 [153]E$[199](14) 12030 [153]"LOAD" 12032 [153]" (null)VAL(null)CLOSESTR$VALASCRIGHT$(null)RIGHT$(null)RIGHT$(null)(null)(null)":[153] 12034 [153]" ************************":[153] 12035 [153]" ASC1 = (null)VAL(null)(null)" 12037 [153]" ASC3 = LEN(null)(null)(null)CLOSE(null)" 12039 [153]" ASC5 = LEN(null)(null)(null) (null)" 12041 [153]" ASC7 = LEN(null)(null)(null) (null)" 12042 [153]" LEN=CLOSECLOSELENCLOSECLOSECLOSE = LEN(null)(null)(null) LEN" 12043 [153]" LEN= (null) = LEN(null)(null)(null) (null)" 12044 [153]" ASC2 =" 12045 [153]" ASC4 = ... (null)(null)(null)CHR$(null)ATN(null)ATNPEEK(null)VAL" 12046 [153]" ASC6 = ... ASC(null)(null)LEN(null)RIGHT$(null)(null)CLOSE(null)VAL(null)(null)" 12047 [153]" ASC8 =" 12048 [153]" LEN= VAL = VALLENLEFT$(null)CLOSE(null)(null)STR$VALCLOSE(null)(null)CHR$CHR$(null)VAL" 12050 [153]" LEN= LEFT$ = LEFT$ATN(null)CHR$(null)(null)CLOSE(null)(null)CHR$CHR$(null)VAL" 12051 [153]" LEN= (null) = (null)(null)RIGHT$(null)(null)CLOSESTR$(null)(null)(null)" 12055 [153]" LEN= = ASCRIGHT$(null)VALCLOSE(null)(null)STR$ATN(null)VAL" 12070 [153]" (null)(null)VAL(null)(null)CLOSEASC1 ASC(null)(null)CLOSE(null)(null)(null)VAL" 12072 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)" 12099 [161]A$:[139]A$[178][199](175)[167][141]2000 12100 [139]A$[179][177][199](133)[167]12099 12110 [153]E$[199](14)" (null)(null)RIGHT$(null)RIGHT$(null)RIGHT$VAL(null) (null)ATNCHR$VAL " 12120 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) " 12130 [153]J$" STR$RIGHT$ATN(null)CLOSE(null)(null)(null)VALCLOSE(null)ATN(null)(null)VAL" 12131 [153]" THE AMOUNT OF TIME TO GET A DIAL" 12132 [153]" TONE AFTER YOU PICK UP THE PHONE" 12140 [153]J$" LEN(null)(null)(null)VALLEN(null)CLOSE(null)ATN(null)(null)VAL" 12141 [153]" THE AMOUNT OF TIME TO ANSWER THE" 12142 [153]" PHONE AND ACCEPT A CARRIER" 12150 [153]J$" LEFT$ATN(null)CHR$(null)(null)CLOSE(null)ATN(null)(null)VAL" 12151 [153]" THE AMOUNT OF TIME TO HANGUP" 12152 [153]" WELL ENOUGH TO CALL AGAIN" 12160 [153]J$" (null)(null)(null)PEEKVAL(null)CLOSE(null)ATN(null)(null)VAL" 12161 [153]" THE AMOUNT OF TIME BETWEEN" 12162 [153]" NUMBERS DIALED" 12170 [153]J$" (null)(null)(null)(null)VALCLOSE(null)ATN(null)(null)VAL" 12171 [153]" THE AMOUNT OF TIME BETWEEN" 12172 [153]" PULSES FOR EACH NUMBER DIALED" 12180 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL" 12182 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)"; 12198 [161]A$:[139]A$[178][199](175)[167][141]2000 12199 [139]A$[179][177][199](133)[167]12198 12200 [153]E$[199](14)" (null)(null)RIGHT$(null)RIGHT$(null)RIGHT$VAL(null) (null)ATNCHR$VAL " 12210 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) " 12220 [153]J$" PEEK(null)ASCASCVAL(null)CLOSEPEEK(null)(null)LEN(null)(null)CLOSE(2-64)" 12221 [153]" THE NUMBER OF 128 BYTE BLOCKS" 12222 [153]" FOR UP/DOWN LOADING" 12223 [153]" SYSTEM WILL UPDATE UTILITIES FILE" 12224 [153]" AND RERUN PROGRAM" 12230 [153]J$" VALLENLEFT$(null)CLOSE(null)(null)STR$VAL" 12231 [153]" FOR CALLING OTHER COMPUTERS AS" 12232 [153]" OPPOSED TO A BULLETIN BOARD" 12233 [153]" WITHOUT THIS YOU WILL NOT BE ABLE" 12234 [153]" TO SEE WHAT YOU TYPE" 12240 [153]J$" LEFT$ATN(null)CHR$(null)(null)" 12241 [153]" THIS IS THE HANGUP TOGGLE" 12245 [153]J$" PEEK(null)(null)VAL(null)CLOSEASC(null)VALVAL" 12246 [153]" THE NUMBER OF MEMORY BYTES UNUSED" 12253 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL" 12254 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)"; 12255 [161]A$:[139]A$[178][199](175)[167][141]2000 12256 [139]A$[179][177][199](133)[167]12255 12300 [153]E$[199](14)" (null)(null)RIGHT$(null)RIGHT$(null)RIGHT$VAL(null) (null)ATNCHR$VAL " 12310 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) " 12330 [153]J$" ASC(null)(null)LEN(null)RIGHT$(null)(null)CLOSE(null)VAL(null)(null)" 12331 [153]" THESE ARE PROGRAMMABLE KEYS THAT" 12332 [153]" CAN BE USED TO SEND PASSWORDS," 12333 [153]" NAMES OR ANYTHING 80 CHARACTERS" 12334 [153]" OR LESS" 12335 [153]" THESE KEYS ARE UPDATED TO DISK" 12336 [153]" BY PRESSING LEN= " 12400 [153]J$" (null)LEN(null)VALVAL(null)CLOSELEN(null)(null)(null)(null)" 12401 [153]" PEEK(null)(null)STR$VAL(null)CLOSELEN(null)(null)(null)(null)" 12402 [153]" LENLEFT$ATN(null)ATNLEN(null)VAL(null)CLOSELEN(null)(null)(null)(null)" 12403 [153]" THESE ARE THE COLOR CONTROLS AND" 12404 [153]" ARE SAVED TO DISK WHEN UPDATED" 12410 [153]J$" **************************************" 12412 [153]" (null)VAL(null)VALLEN(null)RIGHT$(null)(null)(null)CLOSEATN (null)(null) RIGHT$ ATN(null)STR$ (null) (null)(null) (null) ATN(null)VAL (null)ATN(null)VALSTR$" 12414 [153]" (null)(null) STR$RIGHT$(null)(null)CLOSEPEEK(null)CLOSE(null)(null)VAL(null)(null)RIGHT$(null)CHR$CLOSELEN=CLOSEATN(null)STR$CLOSE(null)VAL(null)(null)(null)(null)" 12415 [153]" **************************************" 12995 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)VAL(null)(null)" 12996 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)"; 12997 [161]A$:[139]A$[178][199](175)[167][141]2000 12998 [139]A$[179][177][199](133)[167]12997 12999 [142] 13000 [143] 13001 [143] MAIN MENU INSTR. 13002 [143] 13100 [153]E$[199](14)" (null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)" 13120 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) " 13130 [153]" (null)(null)(null)STR$VAL(null) (null)(null)(null)(null)(null)LEN(null)(null)CLOSEVAL(null)LEN(null)(null)(null)RIGHT$(null)VAL(null)(null)CLOSE!" 13131 [153]" ..............................." 13140 [153]J$" (null)(null)ATNSTR$CLOSEPEEK(null)ASCASCVAL(null)" 13141 [153]" (null)HIS OPTION IS FOR" 13142 [153]" PRELOADING 128 BYTE BLOCKS FOR" 13143 [153]" UPLOAD." 13144 [153]" (null)HE NUMBER OF BLOCKS IS" 13145 [153]" CONTROLLED FROM THE UTILITIES" 13146 [153]" PAGE." 13150 [153]J$" STR$(null)(null)(null)(null)(null)ATNSTR$" 13151 [153]" THIS OPTION IS FOR" 13152 [153]" RECIEVING PROGRAMS FROM OTHER" 13153 [153]" COMPUTER SYSTEMS." 13160 [153]J$" (null)(null)(null)(null)ATNSTR$" 13161 [153]" THIS OPTION IS FOR TRANSMITTING" 13162 [153]" PROGRAMS ALREADY LOADED INTO THE" 13163 [153]" BUFFER" 13190 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL" 13191 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)"; 13192 [161]A$:[139]A$[178][199](175)[167][141]2000 13193 [139]A$[179][177][199](133)[167]13192 13200 [153]E$[199](14)" (null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)" 13220 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) " 13330 [153]J$" (null)VALSTR$CHR$VAL" 13331 [153]" THIS OPTION SIMULATES THE" 13332 [153]" LEN-64 WEDGE" 13333 [153]" <(null)>ALIDATE, <$>DIRECTORY," 13334 [153]" <(null)>ENAME AND <(null)>CRATCH ARE" 13335 [153]" AVAILABLE" 13430 [153]J$" PEEKPEEK(null)CLOSE(null)(null)STR$VAL" 13431 [153]" (null)HIS OPTION IS FOR UNATTENDED" 13432 [153]" CONTROL OF YOUR COMPUTER." 13434 [153]" ATNNY KEY ENTERS CHAT MODE" 13435 [153]" LEN= RETURN DUMPS BACK INTO BBS." 13436 [153]" (null)ESSAGES ARE SEQUENTIAL FILES" 13437 [153]" AND LINES CAN BE 256 CHARACTERS." 13438 [153]" 50 LINES OR 2048 CHARACTERS" 13439 [153]" IS THE SIZE LIMIT." 13496 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL" 13497 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)"; 13498 [161]A$:[139]A$[178][199](175)[167][141]2000 13499 [139]A$[179][177][199](133)[167]13498 13999 [142] 15000 [143] 15001 [143] DEFINE VARIABLES 15002 [143] 15020 [159]7,8,15,"I" 15037 [159]1,8,2,"FUNCTION KEYS,S,R":[132]1,F2$,F4$,F6$,F8$:[160]1:[141]900 15040 [159]2,8,2,"UTILITIES,S,R":[132]2,DT,CP,HP,NP,PP,P,B,HG,C1,C2,C3:[160]2 15041 [141]900 15042 [139]EN[177]0[167]DT[178]200:CP[178]750:HP[178]300:NP[178]200:PP[178]5:P[178]2:HG[178]1:C1[178]6:C2[178]6:C3[178]14 15044 U[178]212:W[178]1:E$[178][199](147):P$[178][199](19):O[178]8:I$[178][199](10):J$[178][199](13):[151]198,0 15045 ACK[178]6:NAK[178]21:EOT[178]4:CAN[178]24:Z[178]131:V[178]132:F[178]255:M[178]288:B1[178]56577:B2[178]56579 15050 C$[178][199](.):R$[178][199](18):O$[178][199](187)[170][199](157):SO[178]54272:[151]B2,32:[151]B1,HG 15052 Q$[178][199](34):L$[178][199](32)[170][199](157) 15100 [143] 15102 [143] 15103 [143] LOAD TRANSLATION TABLES 15104 [143] 15105 [134]F%(F),T%(F),U%(12,V),S%(F),S$(50) 15115 [129]J[178]32[164]64:T%(J)[178]J:F%(J)[178]J:F%(J[170]128)[178]J:S%(J)[178]J:S%(J[170]128)[178]J:[130] 15120 [129]J[178]65[164]90:T%(J)[178]J[170]32:T%(J[170]128)[178]J:F%(J)[178]J[170]128:F%(J[170]128)[178]J[170]128:F%(J[170]32)[178]J 15125 F%(J[170]160)[178]J:S%(J)[178]J[170]32:S%(J[170]128)[178]J[170]32:[130] 15126 [129]J[178]91[164]95:T%(J)[178]J:F%(J)[178]J:F%(J[170]128)[178]J:[130] 15127 [129]J[178]0[164]31:S%(J)[178]J[170]64:S%(J[170]128)[178]J[170]64:[130] 15129 [129]J[178]91[164]127:S%(J)[178]32:S%(J[170]128)[178]32:[130] 15130 T%(13)[178]13:T%(20)[178]8:T%(134)[178]3:T%(135)[178]17:T%(136)[178]19:T%(188)[178]16 15131 T%(147)[178]19:T%(189)[178]24 15132 S%(64)[178]0:S%(192)[178]0 15135 F%(8)[178]20:F%(136)[178]20:F%(16)[178]146:F%(144)[178]146:F%(13)[178]13:F%(141)[178]13 15200 [142] 20000 [143] 20001 [143] GREETING 20002 [143] 20005 [153][199](142):[153][199](147):[151]53248[170]32,6:[151]53248[170]33,6:[151]646,14 20020 [153]"  WAIT";:[153]" STEP (null)WAIT" 20030 [153]"  WAIT  WAIT  WAIT";:[153]" (null) WAITSTEP WAIT(null) WAITSTEPWAIT" 20032 [153]"  WAIT  WAIT  WAIT";:[153]"  (null)(null)(null) WAIT" 20034 [153]"  WAIT  WAIT  WAIT";:[153]"  (null)(null)(null) WAIT" 20036 [153]"  WAIT  WAIT  WAIT";:[153]"  (null)(null)(null) WAIT" 20040 [153]" " 20042 [153]" WAIT  " 20044 [153]" WAIT";:[153]"  WAIT" 20046 [153]" WAIT  WAIT" 20048 [153]" WAIT  WAIT" 20050 [153]" WAIT" 20052 [153]" " 20054 [153]" " 20056 [153]" " 20058 [153]" " 20060 [153]" " 20062 [153]" " 20064 [153]" " 20066 [153]" " 20068 [153]" " 20070 [153]" " 20072 [153]" " 20074 [153]" " 20076 [153]" " 20078 [153]" " 20080 [153]" " 20082 [153]" WAIT  " 20084 [153]" " 20086 [153]" WAIT (null)" 20088 [153]" WAIT  " 20090 [153]" " 20092 [153]" WAIT  WAIT  WAIT " 20094 [153]" WAIT  WAIT  WAIT " 20096 [153]" WAIT  WAIT  WAIT " 20098 [153]" WAIT  WAIT  WAIT " 20150 [139]W[179][177]1[167][141]15000 20250 [153]" FOR MENU" 20255 [161]A$:[139]A$[179][177][199](133)[167]20255 20260 [137]320 60000 [143] 60001 [143] SAVE ROUTINE 60002 [143] 60010 [133]"FILENAME";NM$ 60020 [148]NM$,8 0